home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Texteditors / BED / Rexx / UnIndentBlk.bed < prev    next >
Text File  |  1996-09-26  |  483b  |  36 lines
  1. /*
  2. ** $VER: UnindentBlk.bed 1.0 (02.01.96)
  3. **
  4. ** Unindent the selected block
  5. */
  6.  
  7. OPTIONS RESULTS
  8.  
  9. SetInputLock ON
  10. SetDisplayLock ON
  11.  
  12. GetBlkDims
  13. PARSE VAR RESULT mode . start . end
  14.  
  15. GetCursorPos
  16. PARSE VAR RESULT y x .
  17.  
  18. IF mode = OFF THEN DO
  19.     SetStatusBar "Error: No block selected!"
  20. END; ELSE DO
  21.     SetStatusBar "Unindenting the block..."
  22.     Move LINE start
  23.  
  24.     RecordMacro QUIET
  25.     ShiftLeft TABS
  26.     MoveDown
  27.     EndMacro
  28.  
  29.     PlayMacro end-start
  30.  
  31.     Move y x
  32. END
  33.  
  34. SetDisplayLock OFF
  35. SetInputLock OFF
  36.